From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Sep 1994 02:15:29 +0000 (+0000)
Subject: (facemenu-update): Don't use quoted constant lists
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90316
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=41e7728940ada2a9370cd7b3cd23006b434e1d22;p=emacs.git

(facemenu-update): Don't use quoted constant lists
in define-key.  Reverse order of menu definitions.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 1a2d670fac2..f01b493f6d7 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -131,16 +131,19 @@ changing it.")
       (define-key global-map facemenu-key facemenu-keymap))
 
   ;; Define basic keys
-  (define-key facemenu-menu [update]    '("Update Menu" . facemenu-update))
-  (define-key facemenu-menu [display]   '("Display" . list-faces-display))
-  (define-key facemenu-menu [sep1]      '("-------------"))
-  (define-key facemenu-menu [remove]    '("Remove Properties" . 
-					  facemenu-remove-all))
-  (define-key facemenu-menu [read-only] '("Read-Only". facemenu-set-read-only))
-  (define-key facemenu-menu [invisible] '("Invisible"
-					  . facemenu-set-invisible))
-  (define-key facemenu-menu [sep2]      '("---Special---"))
-  (define-key facemenu-menu [other]     '("Other..." . facemenu-set-face))
+  ;; We construct this list structure explicitly because a quoted constant
+  ;; would be pure.
+  (define-key facemenu-menu [other]     (cons "Other..." 'facemenu-set-face))
+  (define-key facemenu-menu [sep2]      (list "---Special---"))
+  (define-key facemenu-menu [invisible] (cons "Invisible"
+					  'facemenu-set-invisible))
+  (define-key facemenu-menu [read-only] (cons "Read-Only"
+					      'facemenu-set-read-only))
+  (define-key facemenu-menu [remove]    (cons "Remove Properties"
+					      'facemenu-remove-all))
+  (define-key facemenu-menu [sep1]      (list "-------------"))
+  (define-key facemenu-menu [display]   (cons "Display" 'list-faces-display))
+  (define-key facemenu-menu [update]    (cons "Update Menu" 'facemenu-update))
 
   ;; Define commands for face-changing
   (facemenu-iterate